home *** CD-ROM | disk | FTP | other *** search
/ Rockford Magazine / Rockford_Magazine_015_19xx_-_de_Side_A.d64 / lotto 64 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  991b  |  47 lines
  1. 10 rem lottozahlen
  2. 20 rem (w) 9/1992 thomas kneissler
  3. 30 rem
  4. 40 dim f(49)
  5. 50 poke 53280,0:poke 53281,0:poke 646,15
  6. 60 print chr$(14);chr$(147);
  7. 70 print:print tab(11);"[204] o t t o   6 4"
  8. 80 print:print
  9. 90 print"[215]ie heisst das heutige [196]atum?":input da$
  10. 100 print:print"[194]itte [196]rucker anschalten,"
  11. 110 print"[208]apier einlegen und eine [212]aste druecken!"
  12. 120 get a$:if a$="" then 120
  13. 130 open 1,4,2
  14. 140 print#1,chr$(27);"@";:rem reset
  15. 150 print#1,chr$(27);"l";chr$(10);:rem linker rand
  16. 160 print#1,chr$(27);"[208]";:rem pica ein
  17. 170 print#1,chr$(27);"x1";:rem nlq ein
  18. 180 print#1,chr$(27);"k";chr$(1);:rem nlq-schriftart
  19. 190 print#1,chr$(27);"w";chr$(1);:rem breitdruck ein
  20. 200 print#1,"           [204] o t t o   6 4"
  21. 210 print#1,chr$(27);"w";chr$(0);:rem breitdruck aus
  22. 220 print#1,:print#1,"[198]olgende [204]ottozahlen wurden"
  23. 230 print#1,"am ";da$;" ermittelt:":print#1,
  24. 240 for ru=1 to 10
  25. 250 print#1,"[211]piel";:if ru<10 then print#1," ";
  26. 260 print#1,ru;":   ";
  27. 270 gosub 350
  28. 280 print#1,:print#1,
  29. 290 next ru
  30. 300 close 1
  31. 310 end
  32. 320 :
  33. 330 :
  34. 340 rem lottozahlen errechnen
  35. 350 z=rnd(-ti)
  36. 360 for j=1 to 49
  37. 370 f(j)=0
  38. 380 next j
  39. 390 for x=1 to 6
  40. 400 z=int(rnd(1)*49)+1
  41. 410 if f(z)<>0 then 400
  42. 420 f(z)=1
  43. 430 if z<10 then print#1," ";
  44. 440 print#1, z;
  45. 450 next x
  46. 460 return
  47.